home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / modem / tspfon30.zip / ZMOD-U.BAT < prev    next >
DOS Batch File  |  1996-04-21  |  3KB  |  94 lines
  1. echo off
  2. rem ZMOD-U.BAT
  3. rem
  4. rem                  Osborne 06AT harddisk version
  5. rem                       by Prof. Timo Salmi
  6. rem                          9-May-1989
  7. rem
  8. rem      P.O. BOX 700, University of Vaasa, FIN-65101 Vaasa, Finland
  9. rem                 ts@uwasa.fi   http://www.uwasa.fi/~ts/
  10. rem
  11. rem  The purpose of this batch is to upload files with Procomm Plus using
  12. rem  the ZMODEM protocol.
  13. rem
  14. rem  1) Put this batch file in your Procomm Plus directory.
  15. rem
  16. rem  2) Set an External Protocol Upload Filename as ZMOD-U in
  17. rem     Procomm Plus Protocol Options in the Setup Facility.
  18. rem     Procomm Plus setup facility is invoked by Alt-S.
  19. rem
  20. rem  3) Put DSZ.COM in your Procomm Plus directory (here C:\TELEC\PCPLUS).
  21. rem     DSZ.COM is a marketed by Omen Technology Inc.
  22. rem
  23. rem  4) At the remote end tell the system that you are going to upload.
  24. rem     In an Opus bulletin board simply write uz
  25. rem
  26. rem  5) In Procomm Plus by press the PageUp key and select the
  27. rem     relevant external upload protocol.
  28. rem     A ZMOD-U parameters prompt appears. Give the name(s) of
  29. rem     your file(s).
  30. rem
  31. rem  6) If all goes well, the file(s) will be uploaded.
  32. rem
  33. rem  For more information see DSZ.DOC e.g. in DSZ1019.ARC, or later.
  34. rem  Also many public domain files contain useful advice. See e.g.
  35. rem  PRCM-DSZ.ARC, DSZOP3.ARC, Z4PCPL.ARC, DSZHOWTO.ARC, PCPZMOD.ARC, etc.
  36.  
  37. if "%1"=="" goto _error0
  38. if not exist %1 goto _error1
  39. if "%2"=="" goto _do
  40. if not exist %2 goto _error2
  41. if "%3"=="" goto _do
  42. if not exist %3 goto _error3
  43. if "%4"=="" goto _do
  44. if not exist %4 goto _error4
  45. if "%5"=="" goto _do
  46. if not exist %5 goto _error5
  47. if not "%6"=="" goto _error6
  48.  
  49. rem
  50. rem  Below, change the modem port number (3) if necessary.
  51. rem  Omit portx 3e8,2 which is an uncommon resetting of the IRQs
  52.  
  53. :_do
  54. c:\telec\pcplus\dsz CON port 3 portx 3e8,2 sz %1 %2 %3 %4 %5
  55. goto _out1
  56.  
  57. :_error0
  58. echo No filename(s)
  59. goto _error
  60. :_error1
  61. echo File %1 not found
  62. goto _error
  63. :_error2
  64. echo File %2 not found
  65. goto _error
  66. :_error3
  67. echo File %3 not found
  68. goto _error
  69. :_error4
  70. echo File %4 not found
  71. goto _error
  72. :_error5
  73. echo File %5 not found
  74. goto _error
  75. :_error6
  76. echo The maximum number of file names is five
  77. goto _error
  78.  
  79. :_error
  80. echo To try again
  81. echo  1) First exit by pressing any key
  82. echo  2) If the host still is receptive, invoke the upload anew by pressing
  83. echo     PgUp in Procomm, else start the whole upload process from beginning
  84. pause
  85. goto _out2
  86.  
  87. :_out1
  88. echo 
  89. echo 
  90. echo 
  91. if errorlevel 1 pause
  92. :_out2
  93. echo on
  94.